Amiga Developer CD 2.1/Amiga Developer CD v2.1.iso/Reference/DevCon/Atlanta_1990/Atlanta-Devcon.1/Libraries/Intuition/boopsi/emboxclass.c

C/C++ Source or Header | 1992-08-26 | 4.2 KB | 191 lines

/* emboxclass.c -- :ts=8
 * Example of a private image class.
 * This one does a raised embossed box.
 * Doesn't do resolution sensitive bevel widths yet,
 * nor respect IA_LINEWIDTH.
 */

/*
Copyright (c) 1989, 1990 Commodore-Amiga, Inc.

Executables based on this information may be used in software
for Commodore Amiga computers. All other rights reserved.
This information is provided "as is"; no warranties are made.
All use is at your own risk, and no liability or responsibility
is assumed.
*/

#include "sysall.h"

#if 0    /* in sysall.h    */
#include <intuition/classusr.h>
#include <intuition/classes.h>
#include <intuition/imageclass.h>
#endif

#include <intuition/classes.h>

#include <graphics/gfxmacros.h>

#define D(x)    ;
#define DH(x)    ;

#define IM(o)    ((struct Image *)(o))    /* transparent base class */

#define LINEWIDTH    (1)        /* not variable, not fancy    */

/* private class    */
#define PRIVATECLASS    TRUE

#if PRIVATECLASS
#define MYCLASSID    (NULL)
extern struct Library    *IntuitionBase;
#endif

#define SUPERCLASSID    (IMAGECLASS)

Class    *
initEmbBClass()
{
    ULONG __saveds    dispatchEmbB();
    ULONG    hookEntry();
    Class    *cl;
    Class    *MakeClass();

    if ( cl =  MakeClass( MYCLASSID,
        SUPERCLASSID, NULL,        /* superclass is public      */
         0,                /* no new instance data */
        0 ))
    {
    /* initialize the cl_Dispatcher Hook    */
    cl->cl_Dispatcher.h_Entry = hookEntry;
    cl->cl_Dispatcher.h_SubEntry = dispatchEmbB;
    cl->cl_Dispatcher.h_Data = (VOID *) 0xFACE;    /* unused */

#if !PRIVATECLASS
    AddClass( cl );            /* make public and available    */
#endif
    }
    return ( cl );
}

freeEmbBClass( cl )
Class    *cl;
{
    return ( FreeClass( cl )  );
}

ULONG __saveds
dispatchEmbB( cl, o, msg )
Class   *cl;
Object  *o;
Msg     msg;
{
    switch ( msg->MethodID )
    {
    case IM_DRAW:            /* draw with state */
    return ( (ULONG) drawEmbB( cl, o, msg ) );

    /* use superclass defaults for everything else */
    case OM_NEW:
    case OM_GET:
    case OM_SET:
    case IM_HITTEST:
    case IM_ERASE:
    case OM_DISPOSE:
    default:
    return ( (ULONG) DSM( cl, o, msg ) );
    }
}

drawEmbB( cl, o, msg )
Class        *cl;
Object        *o;
struct impDraw    *msg;
{
    struct IBox        box;

    UWORD        *pens;        /* pen spec array */
    UWORD        ulpen;        /* upper left    */
    UWORD        lrpen;        /* lower right    */
    UWORD        fillpen;    /* filled area    */

    /* let's be sure that we were passed a DrawInfo    */
    pens =  ( msg->imp_DrInfo )?  msg->imp_DrInfo->dri_Pens: NULL;

    box = *IM_BOX( IM(o) );        /* get Image.Left/Top/Width/Height */
    box.Left += msg->imp_Offset.X;
    box.Top += msg->imp_Offset.Y;

    switch ( msg->imp_State )
    {
    case IDS_SELECTED:
    case IDS_INACTIVESELECTED:
    ulpen = pens? pens[ shadowPen ]: 2;
    lrpen = pens? pens[ shinePen ]: 1;
    fillpen = pens? pens[ hifillPen ]: 3;
    break;

    case IDS_NORMAL:    /* doesn't use activefill in borders now */
    case IDS_DISABLED:    /* I don't have a ghosted version yet     */
    case IDS_INACTIVENORMAL:    /* doesn't use activefill in borders now */
    default:
    ulpen = pens? pens[ shinePen ]: 2;
    lrpen = pens? pens[ shadowPen ]: 1;
    fillpen = pens? pens[ backgroundPen ]: 0;
    break;
    }

    embossedBoxTrim( msg->imp_RPort, &box, LINEWIDTH, LINEWIDTH, ulpen,lrpen);

    /* interior */
    interiorBox( msg->imp_RPort, &box, LINEWIDTH, LINEWIDTH, fillpen );
}

/* fill region centered in a box */
interiorBox( rp, b, xw, yw, pen )
struct RastPort    *rp;
struct IBox    *b;
{
    if ( (b->Width > (xw<<1)) && (b->Height > (yw<<1)) )
    {
    rp->Mask = -1;
    BNDRYOFF( rp );
    SetAfPt(rp, NULL, 0);
    SetDrMd(rp, JAM2);
    SetAPen(rp, pen);
    RectFill( rp,
        b->Left + xw,
        b->Top + yw,
        b->Left + b->Width - 1 - xw,
        b->Top + b->Height - 1 - yw );
    }
}

/* suggestion of Talin: don't draw upper-right and lower-left points */
/* ignoring thickness for now    */
embossedBoxTrim( rp, b, hthick, vthick, ulpen, lrpen )
struct RastPort    *rp;
struct IBox    *b;
{
    int    bottom, right;

    bottom = b->Top + b->Height - 1;
    right = b->Left + b->Width - 1;

    /* upper right edges    */
    SetAPen( rp, ulpen );

    Move( rp, b->Left, bottom - 1 );
    Draw( rp, b->Left, b->Top );
    Draw( rp, right - 1, b->Top );

    /* lower right edges    */
    SetAPen( rp, lrpen );

    Move( rp, right, b->Top + 1 );
    Draw( rp, right, bottom );
    Draw( rp, b->Left + 1, bottom );
}